home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 38 / Amiga Format CD38 (1999-03-15)(Future Publishing)(GB)(Track 1 of 3)[!][issue 1999-04].iso / -screenplay- / shareware / wreckage / source / assembly / backup / asm_rot_a2.asm < prev    next >
Assembly Source File  |  1999-02-08  |  563b  |  34 lines
  1. _rot_loop2:
  2.  
  3.   MOVE.b (a2)+,d1
  4.   BEQ _rot_loop2a
  5.  
  6.   MOVE.l (a0),d1     ;d1=ox(n)
  7.   CLR.w d1
  8.   SWAP d1
  9.  
  10.   MOVE.w d1,d2          ;d2=x
  11.   MULS.w d6,d1          ;x*csa
  12.  
  13.   MULS.w d7,d2          ;x*sna
  14.  
  15.  
  16.   MOVE.l (a1),d3        ;oy(n)
  17.   CLR.w d3
  18.   SWAP d3
  19.  
  20.   MOVE.w d3,d4          ;y
  21.   MULS.w d7,d3          ;y*sna
  22.  
  23.   SUB.l d3,d1           ;x*csa-y*sna
  24.  
  25.   MULS.w d6,d4          ;y*csa
  26.  
  27.   ADD.l d2,d4           ;y*csa+x*sna
  28.  
  29. _rot_loop2a:
  30.   MOVE.l d4,(a1)+       ;y(n)=y*csa+x*sna
  31.   MOVE.l d1,(a0)+       ;x(n)=x*csa-y*sna
  32.   SUBQ.l #1,d0          ;n=n-1
  33.   BGE _rot_loop2
  34.